/ Komputer for Alle 2001 #9 / CD 9 (Black) - 2001.iso / Pinball / System / UBrowser.u / UBrowserServerList_UBrowserServerListFactory_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 7d 1b 2f 2f 3d 3d 3d 3d |........|}.//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 55 42 |========|=..// UB|
|00000060| 72 6f 77 73 65 72 53 65 | 72 76 65 72 4c 69 73 74 |rowserSe|rverList|
|00000070| 46 61 63 74 6f 72 79 0d | 0a 2f 2f 09 09 41 6e 20 |Factory.|.//..An |
|00000080| 61 62 73 74 72 61 63 74 | 20 63 6c 61 73 73 20 74 |abstract| class t|
|00000090| 6f 20 61 64 64 20 73 65 | 72 76 65 72 73 20 74 6f |o add se|rvers to|
|000000a0| 20 61 6e 20 65 78 69 73 | 74 69 6e 67 20 73 65 72 | an exis|ting ser|
|000000b0| 76 65 72 20 6c 69 73 74 | 2e 20 20 0d 0a 2f 2f 09 |ver list|.  ..//.|
|000000c0| 09 65 67 20 47 61 6d 65 | 53 70 79 2c 20 48 54 54 |.eg Game|Spy, HTT|
|000000d0| 50 20 6d 61 73 74 65 72 | 20 73 65 72 76 65 72 73 |P master| servers|
|000000e0| 2c 20 66 61 76 6f 72 69 | 74 65 73 20 6c 69 73 74 |, favori|tes list|
|000000f0| 2c 20 65 74 63 0d 0a 2f | 2f 3d 3d 3d 3d 3d 3d 3d |, etc../|/=======|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 0d 0a | 63 6c 61 73 73 20 55 42 |======..|class UB|
|00000150| 72 6f 77 73 65 72 53 65 | 72 76 65 72 4c 69 73 74 |rowserSe|rverList|
|00000160| 46 61 63 74 6f 72 79 20 | 65 78 74 65 6e 64 73 20 |Factory |extends |
|00000170| 55 57 69 6e 64 6f 77 4c | 69 73 74 0d 0a 09 61 62 |UWindowL|ist...ab|
|00000180| 73 74 72 61 63 74 3b 0d | 0a 0d 0a 76 61 72 20 55 |stract;.|...var U|
|00000190| 42 72 6f 77 73 65 72 53 | 65 72 76 65 72 4c 69 73 |BrowserS|erverLis|
|000001a0| 74 20 50 69 6e 67 65 64 | 4c 69 73 74 3b 0d 0a 76 |t Pinged|List;..v|
|000001b0| 61 72 20 55 42 72 6f 77 | 73 65 72 53 65 72 76 65 |ar UBrow|serServe|
|000001c0| 72 4c 69 73 74 20 55 6e | 70 69 6e 67 65 64 4c 69 |rList Un|pingedLi|
|000001d0| 73 74 3b 0d 0a 76 61 72 | 20 55 42 72 6f 77 73 65 |st;..var| UBrowse|
|000001e0| 72 53 65 72 76 65 72 4c | 69 73 74 20 4f 77 6e 65 |rServerL|ist Owne|
|000001f0| 72 3b 0d 0a 0d 0a 0d 0a | 76 61 72 20 62 6f 6f 6c |r;......|var bool|
|00000200| 20 62 49 6e 63 72 65 6d | 65 6e 74 61 6c 50 69 6e | bIncrem|entalPin|
|00000210| 67 3b 09 09 2f 2f 20 53 | 65 72 76 65 72 73 20 61 |g;..// S|ervers a|
|00000220| 72 65 20 70 69 6e 67 65 | 64 20 61 73 20 74 68 65 |re pinge|d as the|
|00000230| 79 20 63 6f 6d 65 20 69 | 6e 0d 0a 0d 0a 66 75 6e |y come i|n....fun|
|00000240| 63 74 69 6f 6e 20 51 75 | 65 72 79 28 6f 70 74 69 |ction Qu|ery(opti|
|00000250| 6f 6e 61 6c 20 62 6f 6f | 6c 20 62 42 79 53 75 70 |onal boo|l bBySup|
|00000260| 65 72 73 65 74 2c 20 6f | 70 74 69 6f 6e 61 6c 20 |erset, o|ptional |
|00000270| 62 6f 6f 6c 20 62 49 6e | 69 74 69 61 6c 29 0d 0a |bool bIn|itial)..|
|00000280| 7b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |{..}....|function|
|00000290| 20 53 68 75 74 64 6f 77 | 6e 28 6f 70 74 69 6f 6e | Shutdow|n(option|
|000002a0| 61 6c 20 62 6f 6f 6c 20 | 62 42 79 53 75 70 65 72 |al bool |bBySuper|
|000002b0| 73 65 74 29 0d 0a 7b 0d | 0a 09 4f 77 6e 65 72 20 |set)..{.|..Owner |
|000002c0| 3d 20 4e 6f 6e 65 3b 0d | 0a 09 50 69 6e 67 65 64 |= None;.|..Pinged|
|000002d0| 4c 69 73 74 20 3d 20 4e | 6f 6e 65 3b 0d 0a 09 55 |List = N|one;...U|
|000002e0| 6e 70 69 6e 67 65 64 4c | 69 73 74 20 3d 20 4e 6f |npingedL|ist = No|
|000002f0| 6e 65 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |ne;..}..|..functi|
|00000300| 6f 6e 20 51 75 65 72 79 | 46 69 6e 69 73 68 65 64 |on Query|Finished|
|00000310| 28 62 6f 6f 6c 20 62 53 | 75 63 63 65 73 73 2c 20 |(bool bS|uccess, |
|00000320| 6f 70 74 69 6f 6e 61 6c | 20 73 74 72 69 6e 67 20 |optional| string |
|00000330| 45 72 72 6f 72 4d 73 67 | 29 0d 0a 7b 0d 0a 09 4f |ErrorMsg|)..{...O|
|00000340| 77 6e 65 72 2e 51 75 65 | 72 79 46 69 6e 69 73 68 |wner.Que|ryFinish|
|00000350| 65 64 28 53 65 6c 66 2c | 20 62 53 75 63 63 65 73 |ed(Self,| bSucces|
|00000360| 73 2c 20 45 72 72 6f 72 | 4d 73 67 29 3b 0d 0a 7d |s, Error|Msg);..}|
|00000370| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 55 42 72 |....func|tion UBr|
|00000380| 6f 77 73 65 72 53 65 72 | 76 65 72 4c 69 73 74 20 |owserSer|verList |
|00000390| 46 6f 75 6e 64 53 65 72 | 76 65 72 28 73 74 72 69 |FoundSer|ver(stri|
|000003a0| 6e 67 20 49 50 2c 20 69 | 6e 74 20 51 75 65 72 79 |ng IP, i|nt Query|
|000003b0| 50 6f 72 74 2c 20 73 74 | 72 69 6e 67 20 43 61 74 |Port, st|ring Cat|
|000003c0| 65 67 6f 72 79 2c 20 73 | 74 72 69 6e 67 20 47 61 |egory, s|tring Ga|
|000003d0| 6d 65 4e 61 6d 65 2c 20 | 6f 70 74 69 6f 6e 61 6c |meName, |optional|
|000003e0| 20 73 74 72 69 6e 67 20 | 48 6f 73 74 4e 61 6d 65 | string |HostName|
|000003f0| 29 0d 0a 7b 0d 0a 09 6c | 6f 63 61 6c 20 55 42 72 |)..{...l|ocal UBr|
|00000400| 6f 77 73 65 72 53 65 72 | 76 65 72 4c 69 73 74 20 |owserSer|verList |
|00000410| 4e 65 77 4c 69 73 74 45 | 6e 74 72 79 3b 0d 0a 0d |NewListE|ntry;...|
|00000420| 0a 09 4e 65 77 4c 69 73 | 74 45 6e 74 72 79 20 3d |..NewLis|tEntry =|
|00000430| 20 4f 77 6e 65 72 2e 46 | 69 6e 64 45 78 69 73 74 | Owner.F|indExist|
|00000440| 69 6e 67 53 65 72 76 65 | 72 28 49 50 2c 20 51 75 |ingServe|r(IP, Qu|
|00000450| 65 72 79 50 6f 72 74 29 | 3b 0d 0a 0d 0a 09 2f 2f |eryPort)|;.....//|
|00000460| 20 44 6f 6e 27 74 20 61 | 64 64 20 69 66 20 69 74 | Don't a|dd if it|
|00000470| 27 73 20 61 6c 72 65 61 | 64 79 20 69 6e 20 74 68 |'s alrea|dy in th|
|00000480| 65 20 65 78 69 73 74 69 | 6e 67 20 6c 69 73 74 0d |e existi|ng list.|
|00000490| 0a 09 69 66 28 4e 65 77 | 4c 69 73 74 45 6e 74 72 |..if(New|ListEntr|
|000004a0| 79 20 3d 3d 20 4e 6f 6e | 65 29 0d 0a 09 7b 0d 0a |y == Non|e)...{..|
|000004b0| 09 09 2f 2f 20 41 64 64 | 20 69 74 20 74 6f 20 74 |..// Add| it to t|
|000004c0| 68 65 20 73 65 72 76 65 | 72 20 6c 69 73 74 28 73 |he serve|r list(s|
|000004d0| 29 0d 0a 09 09 4e 65 77 | 4c 69 73 74 45 6e 74 72 |)....New|ListEntr|
|000004e0| 79 20 3d 20 55 42 72 6f | 77 73 65 72 53 65 72 76 |y = UBro|wserServ|
|000004f0| 65 72 4c 69 73 74 28 4f | 77 6e 65 72 2e 43 72 65 |erList(O|wner.Cre|
|00000500| 61 74 65 49 74 65 6d 28 | 4f 77 6e 65 72 2e 43 6c |ateItem(|Owner.Cl|
|00000510| 61 73 73 29 29 3b 0d 0a | 0d 0a 09 09 4e 65 77 4c |ass));..|....NewL|
|00000520| 69 73 74 45 6e 74 72 79 | 2e 49 50 20 3d 20 49 50 |istEntry|.IP = IP|
|00000530| 3b 0d 0a 09 09 4e 65 77 | 4c 69 73 74 45 6e 74 72 |;....New|ListEntr|
|00000540| 79 2e 51 75 65 72 79 50 | 6f 72 74 20 3d 20 51 75 |y.QueryP|ort = Qu|
|00000550| 65 72 79 50 6f 72 74 3b | 0d 0a 0d 0a 09 09 4e 65 |eryPort;|......Ne|
|00000560| 77 4c 69 73 74 45 6e 74 | 72 79 2e 50 69 6e 67 20 |wListEnt|ry.Ping |
|00000570| 3d 20 39 39 39 39 3b 0d | 0a 09 09 69 66 28 48 6f |= 9999;.|...if(Ho|
|00000580| 73 74 4e 61 6d 65 20 21 | 3d 20 22 22 29 0d 0a 09 |stName !|= "")...|
|00000590| 09 09 4e 65 77 4c 69 73 | 74 45 6e 74 72 79 2e 48 |..NewLis|tEntry.H|
|000005a0| 6f 73 74 4e 61 6d 65 20 | 3d 20 48 6f 73 74 4e 61 |ostName |= HostNa|
|000005b0| 6d 65 3b 0d 0a 09 09 65 | 6c 73 65 0d 0a 09 09 09 |me;....e|lse.....|
|000005c0| 4e 65 77 4c 69 73 74 45 | 6e 74 72 79 2e 48 6f 73 |NewListE|ntry.Hos|
|000005d0| 74 4e 61 6d 65 20 3d 20 | 49 50 3b 0d 0a 09 09 4e |tName = |IP;....N|
|000005e0| 65 77 4c 69 73 74 45 6e | 74 72 79 2e 43 61 74 65 |ewListEn|try.Cate|
|000005f0| 67 6f 72 79 20 3d 20 43 | 61 74 65 67 6f 72 79 3b |gory = C|ategory;|
|00000600| 0d 0a 09 09 4e 65 77 4c | 69 73 74 45 6e 74 72 79 |....NewL|istEntry|
|00000610| 2e 47 61 6d 65 4e 61 6d | 65 20 3d 20 47 61 6d 65 |.GameNam|e = Game|
|00000620| 4e 61 6d 65 3b 0d 0a 09 | 09 4e 65 77 4c 69 73 74 |Name;...|.NewList|
|00000630| 45 6e 74 72 79 2e 62 4c | 6f 63 61 6c 53 65 72 76 |Entry.bL|ocalServ|
|00000640| 65 72 20 3d 20 46 61 6c | 73 65 3b 0d 0a 0d 0a 09 |er = Fal|se;.....|
|00000650| 09 4f 77 6e 65 72 2e 41 | 70 70 65 6e 64 49 74 65 |.Owner.A|ppendIte|
|00000660| 6d 28 4e 65 77 4c 69 73 | 74 45 6e 74 72 79 29 3b |m(NewLis|tEntry);|
|00000670| 0d 0a 09 7d 0d 0a 0d 0a | 09 4e 65 77 4c 69 73 74 |...}....|.NewList|
|00000680| 45 6e 74 72 79 2e 62 4f | 6c 64 53 65 72 76 65 72 |Entry.bO|ldServer|
|00000690| 20 3d 20 46 61 6c 73 65 | 3b 0d 0a 0d 0a 09 72 65 | = False|;.....re|
|000006a0| 74 75 72 6e 20 4e 65 77 | 4c 69 73 74 45 6e 74 72 |turn New|ListEntr|
|000006b0| 79 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |y;..}...|.functio|
|000006c0| 6e 20 50 6c 61 79 65 72 | 50 61 77 6e 20 47 65 74 |n Player|Pawn Get|
|000006d0| 50 6c 61 79 65 72 4f 77 | 6e 65 72 28 29 0d 0a 7b |PlayerOw|ner()..{|
|000006e0| 0d 0a 09 72 65 74 75 72 | 6e 20 4f 77 6e 65 72 2e |...retur|n Owner.|
|000006f0| 47 65 74 50 6c 61 79 65 | 72 4f 77 6e 65 72 28 29 |GetPlaye|rOwner()|
|00000700| 3b 0d 0a 7d 0d 0a 00    |                         |;..}... |        |
+--------+-------------------------+-------------------------+--------+--------+